max v2;
#N vpatcher 82 168 371 576;
#P origin 15 7;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 133 207 79 9109513 scale 1 100 0. 1.;
#N comlet float (0.~1.);
#P outlet 133 271 15 0;
#N comlet X(1) \, float (0.00---01 \, 99.99---99);
#P inlet 198 47 15 0;
#N comlet bang!;
#P inlet 17 47 15 0;
#P newex 43 113 32 9109513 - 100.;
#P newex 43 82 153 9109513 if $f1 > 100 then $f1 else out2 $f1;
#P newex 43 151 57 9109513 prepend set;
#P message 43 181 90 9109513 43.553329;
#P newex 95 207 36 9109513 bucket;
#P newex 43 234 62 9109513 expr $f1+$f2;
#P comment 30 317 171 9109513 X[n+2] = X[n] + X[n+1] \,;
#P comment 30 331 171 9109513 if X[n] > 100 \, then X[n] - 100;
#P comment 20 297 163 9109513 additive series with condition;
#P fasten 3 0 7 0 48 262 33 262 33 75 48 75;
#P connect 7 0 8 0;
#P connect 8 0 6 0;
#P fasten 10 0 6 0 203 139 48 139;
#P fasten 7 1 6 0 191 139 48 139;
#P fasten 9 0 5 0 22 175 48 175;
#P connect 6 0 5 0;
#P connect 5 0 3 0;
#P fasten 5 0 4 0 48 202 100 202;
#P fasten 10 0 4 0 203 202 100 202;
#P connect 4 0 3 1;
#P fasten 7 1 12 0 191 154 138 154;
#P fasten 8 0 12 0 48 144 138 144;
#P connect 12 0 11 0;
#P pop;
